Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/iv.dir/00027_play button callback.ls

Text File | 1996-04-19 | 1.6 KB | 49 lines

on mouseDown
  global givState, givTransTestPtr, givTransTest
  set clik to the clickOn
  HSStatePut("iv", "noHelpScreen", 1)
  if the mode of givState = #edit then
    set the castNum of sprite clik to the number of cast "play button down"
    set tmp to the number of cast "play button down"
  else
    set the castNum of sprite clik to the number of cast "play mode play button down"
    set tmp to the number of cast "play mode play button down"
  end if
  updateStage()
  repeat while the stillDown
    nothing()
  end repeat
  if the mouseCast = tmp then
    if the mode of givState = #edit then
      set the castNum of sprite clik to the number of cast "play button"
    else
      set the castNum of sprite clik to the number of cast "play mode play button"
    end if
    if the activeVideoMode of givState = #pause then
      pass()
      exit
    end if
    DisableIdleAnim()
    PlaySoundWait("CLIK2.AIF")
    if (the mode of givState = #play) and (the activeMonitor of givState = 3) and (count(the editList of givState) > 0) then
      set the editListPlaybackPtr of givState to 1
      DVPause()
      EditListPlay(1, #play)
    else
      if (the mode of givState = #edit) and (the activeMonitor of givState = 3) then
        set givTransTest to 1
        if count(the questionSelectList of givState) > 0 then
          set givTransTestPtr to 1
        else
          set givTransTestPtr to 0
        end if
        DoTransitionTest()
      else
        set the selectListPlaybackPtr of givState to 1
        DVPause()
        PlayActiveVideo(#play)
      end if
    end if
  end if
end